--Ziehsteuerung
--Zieht das BE mit dem kleinsten Attributwert.
-- zieht das BE mit dem kleinsten Attributwert
is
	BlockListe : table;
	i, n : integer;
	Wert, Wert2 : real
do
	BlockListe.create;
	?.vBlockierliste(BlockListe);

	Wert := 1e300;  -- der grtmgliche Wert

	for i := BlockListe.yDim downto 1 loop
		Wert2 := BlockListe[1,i].Attribut;
		if Wert2 < Wert then
			n := i;
			Wert := Wert2;
		end;
	next;

	?.entblockieren(BlockListe[1,n]);
end;
/*Attribut:Geben Sie das bestimmende Attribut ein, z. B. 'Lnge'.
*/